10 Z$=CHR$(20):A=3000:IFPEEK(56)<64THENA=100
20 DIMA$(A):PRINT"[147]"CHR$(14)CHR$(8);:OPEN1,0,0:V=203:IFPEEK(771)=164THENV=212
30 LI$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
40 PRINT"[144]        [211]EQUENTIAL [198]ILE [197]DITOR":PRINTLI$""
50 PRINT"[197]NTER THE NAME OF THE FILE YOU WISH TO  EDIT AND PRESS [210][197][212][213][210][206]"
60 PRINT">";:INPUT#1,FI$:PRINT"":FI$=LEFT$(FI$,16)
70 PRINT"FILENAME IS "CHR$(34)FI$CHR$(34):PRINT"[201]S THIS CORRECT? (Y/N) Y[157]";
80 INPUT#1,A$:PRINT:IFLEN(A$)=0THENPRINT"[145]":GOTO80
90 A$=LEFT$(A$,1):IFA$="Y"THENPRINT:GOTO110
100 RUN
110 PRINT"[196]ISK [196]RIVE # (8-10) 8[157]";:INPUT#1,A$:DR=INT(VAL(A$))
120 IFDR<8ORDR>10THENPRINT:PRINTSPC(22)"[145]       [145]":GOTO110
130 PRINT"[147]  [210]EADING "CHR$(34)FI$CHR$(34):PRINTLI$
140 F2$=FI$+",S,R":LN=1:PRINT"  1 : ";
150 OPEN8,DR,8,F2$:GET#8,A$
160 IFST<>0THENPRINT"[198]ILE [206]OT [198]OUND":GOSUB1150:GOSUB1140:RUN
170 GOTO190
180 GET#8,A$
190 IFA$<>CHR$(13)THENA$(LN)=A$(LN)+A$
200 IFST<>0THENGOSUB1150:GOTO260
210 IFA$=CHR$(13)THEN230
220 PRINTA$;:GOTO180
230 B$="":IFLN<9THENB$=" "
240 PRINT:LN=LN+1:PRINTB$;LN": ";:IFST<>0THEN260
250 GOTO180
260 CLOSE8:PRINT"[147]"SPC(13)"[205]AIN [205]ENU":PRINTLI$
270 PRINT"[1] [204]IST [198]ILE":PRINT"[2] [197]DIT [204]INE":PRINT"[3] [201]NSERT [204]INE"
280 PRINT"[4] [196]ELETE [204]INE":PRINT"[5] [210]E-[210]UN [208]ROGRAM"
290 PRINT"[6] [210]E-[211]AVE [198]ILE AFTER [197]DITING":PRINT"[7] [208]RINT [198]ILE TO [208]RINTER"
300 PRINT"[8] [197]XIT [208]ROGRAM"
310 PRINT"[197]NTER YOUR CHOICE AND PRESS [210][197][212][213][210][206]"
320 PRINT">";:INPUT#1,A$:A=INT(VAL(A$)):IFA<1ORA>8THEN260
330 ONAGOTO340,520,600,700,800,830,890,1000
340 PRINT"[147]"SPC(13)"[204]IST [198]ILE":PRINTLI$
350 PRINT"[208]RESS ([193]) TO ABORT OR ([211][208][193][195][197]) TO PAUSE"
360 PRINT"([215][146])ITH OR [215]ITH([207][146])UT LINE NUMBERS? W[157]";
370 INPUT#1,A$:A$=LEFT$(A$,1):IFA$<>"W"ANDA$<>"O"THEN370
380 PRINT"":FORR=1TOLN:IFA$="O"THEN410
390 B$="":IFR<10THENB$=" "
400 PRINTB$;R": ";
410 PRINTA$(R)
420 FORT=1TO100:NEXT
430 GETC$:IFC$=""THENNEXT:GOTO490
440 IFC$="A"THENPRINT:PRINT"* [193]BORTED *":GOTO490
450 IFC$<>" "THEN430
460 PRINT"* [208]AUSED *"
470 GETC$:IFC$=""THEN470
480 PRINT"[145]           ":PRINT"[145]";:GOTO430
490 PRINT"  [208]RESS ANY KEY FOR [205]AIN [205]ENU"
500 GETC$:IFC$=""THEN500
510 GOTO260
520 PRINT"[147]"SPC(13)"[197]DIT [204]INE":PRINTLI$:PRINT"[215]HICH LINE NUMBER TO EDIT? ";
530 INPUT#1,A$:A=INT(VAL(A$)):PRINT
540 IFA>0ANDA<=LNTHEN560
550 PRINT"[194]AD LINE NUMBER":GOSUB1150:GOTO520
560 PRINT" "A$(A):PRINT"[210]ETYPE LINE OR PRESS [210][197][212][213][210][206]"
570 PRINT">";:GOSUB1040:PRINT
580 IFT$=CHR$(13)ANDP=0THENPRINT"[213]N-CHANGED":GOSUB1150:GOTO260
590 PRINT"[195]HANGED":GOSUB1150:A$(A)=A$:GOTO260
600 PRINT"[147]"SPC(13)"[201]NSERT A LINE":PRINTLI$
610 PRINT"[215]HERE SHOULD THE LINE BE INSERTED?"
620 PRINT">";:INPUT#1,A$:A=INT(VAL(A$)):PRINT
630 IFA>0ANDA<=LNTHEN650
640 PRINT:PRINT"[194]AD LINE NUMBER":GOSUB1150:GOTO600
650 PRINT"[215]HAT WOULD YOU LIKE THAT LINE TO BE?    (PRESS [210][197][212][213][210][206] TO ABORT)"
660 PRINT">";:GOSUB1040
670 IFT$=CHR$(13)ANDP=0THEN260
680 FORR=LNTOASTEP-1:A$(R+1)=A$(R):NEXT:LN=LN+1
690 PRINT:PRINT"[196]ONE":GOSUB1150:A$(A)=A$:GOTO260
700 PRINT"[147]"SPC(13)"[196]ELETE [204]INE":PRINTLI$
710 PRINT"[215]HICH LINE WOULD YOU LIKE TO DELETE?"
720 PRINT">";:INPUT#1,A$:A=INT(VAL(A$))
730 IFA<1ORA>LNTHEN700
740 PRINT:PRINT:PRINTA$(A):PRINT"[196]ELETE THIS LINE (Y/N)? Y[157]";
750 INPUT#1,A$:A$=LEFT$(A$,1):PRINT
760 IFA$="Y"THEN780
770 PRINT"[206]OT [196]ELETED":GOSUB1150:GOTO260
780 FORR=ATOLN:A$(R)=A$(R+1):NEXT:LN=LN-1:PRINT"[196]ELETED"
790 GOSUB1150:GOTO260
800 PRINT:PRINT"[193]RE YOU SURE (Y/N)? Y[157]";:INPUT#1,A$:A$=LEFT$(A$,1)
810 IFA$="Y"THENRUN
820 GOTO260
830 PRINT"[147]"SPC(12)"[210]E-[211]AVE [198]ILE":PRINTLI$
840 PRINT"[197]NTER THE FILE NAME":PRINT"('*' FOR SAME NAME AS BEFORE)"
850 F3$=FI$:PRINT">";:INPUT#1,A$:IFA$<>"*"THENF3$=A$
860 OPEN15,DR,15,"S0:"+F3$:CLOSE15:F4$="0:"+F3$+",S,W":OPEN8,DR,8,F4$
870 PRINT"":FORR=1TOLN:PRINT"[204]INE: "R"[145]":PRINT#8,A$(R):NEXT
880 CLOSE8:PRINT:PRINT:PRINT"[196]ONE":GOSUB1150:GOTO260
890 PRINT"[147]"SPC(13)"[208]RINTING [198]ILE":PRINTLI$
900 PRINT"[200]OW MANY LINES PER PAGE DOES YOUR PAPER"
910 PRINT"HAVE? (0 = [195]ONTINUOUS PRINTING)"
920 PRINT">";:INPUT#1,LP:LL=0:IFLP<0ORLP<>INT(LP)THEN890
930 PRINT:PRINT:PRINT"[208]RESS ([211]PACE) TO PRINT OR '[193]' TO ABORT"
940 GETA$:IFA$="A"THEN260
950 IFA$=" "THEN970
960 GOTO940
970 OPEN9,4,7:FORR=1TO5:PRINT#9:NEXT:FORR=1TOLN:PRINT#9,A$(R)
980 LL=LL+1:IFLL=LP-10THENFORT=1TO10:PRINT#9:NEXT:LL=0
990 NEXT:PRINT#9:CLOSE9:GOTO260
1000 PRINT:PRINT"[193]RE YOU SURE (Y/N)? Y[157]";
1010 INPUT#1,A$:A$=LEFT$(A$,1):IFA$="Y"THENPRINT"[147]":END
1020 GOTO260
1030 REM RETURN AS A$
1040 P=0:A$=""
1050 PRINTCHR$(166)CHR$(157);
1060 GETT$:IFT$=""OR(T$=CHR$(24)ANDA$="")THEN1060
1070 PRINT" "CHR$(157);
1080 IFT$=Z$ANDLEN(A$)>0THENA$=LEFT$(A$,LEN(A$)-1):PRINTT$;:P=P-1:GOTO1050
1090 IFT$=CHR$(24)THENFORZ=1TOLEN(A$):PRINTZ$;:NEXT:GOTO1040
1100 IFT$=CHR$(13)THENPRINTT$:RETURN
1110 IF(ASC(T$)AND127)<32THEN1050
1120 IFP>253THEN1050
1130 PRINTT$;:A$=A$+T$:POKEV,0:P=P+1:GOTO1050
1140 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:CLOSE15:RETURN
1150 FORR=1TO1000:NEXT:RETURN